//IHT930P4 JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=2,CLASS=C,TIME=5
//COSHQN1 JOB (16010101059,CCKT),COSMIC-JTK-HQN10517
//A EXEC PDQ,PROG=DSDUMQ
//SYSUT1 DD *,DLM=HD
//IHT930P4 JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=2,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000040
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930P4,ANA=SCATESXX,PRTY=2,CWA=Z062
/*SETUP    *       9TRK=01,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    OUTPUT -DSN=GOODTRAN,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//BIDE     EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',
//             REGION.GO=125K,TIME=2
//COB.SYSIN DD *
/*
//GO.SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.SORTMSG  DD  SYSOUT=A
//GO.SORTWK01 DD SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK02 DD SPACE=(CYL,(20),,CONTIG),UNIT=(DISK,SEP=SORTWK01)
//GO.SORTWK03 DD SPACE=(CYL,(20),,CONTIG),
//             UNIT=(DISK,SEP=(SORTWK01,SORTWK02))
//GO.SORTWK04  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK05  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK06  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTOUT DD UNIT=3330,DISP=(NEW,DELETE),DSNAME=&OUTDATA,           *
//             SPACE=(CYL,(8,4)),VOL=SER=3D0043,                       *
//             DCB=(LRECL=100,BLKSIZE=3000,RECFM=FB)
//GO.RPTOT  DD SYSOUT=A
//GO.GDATA DD  UNIT=TAPE9,DISP=(NEW,KEEP),DSN=PRIV.SCATESXX.GOODTRAN,
//             VOLUME=(PRIVATE,RETAIN),LABEL=EXPDT=99365,
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.CRD2  DD  DUMMY
//GO.INCRD DD *
06-08-76
B1ABOX 1          NCDRAWING 1            PART NUMBER 1       BOX 1
B2ABOX 1          PWR   0001CB1   0001    INPUT 28VDC
B2ABOX 1          CB1   0002CB1   0001    INPUT 28VDC
B2ABOX 1          CB1   0002JA    0001    INPUT 28VDC
B1ABOX 2          NCDRAWING 2            PART NUMBER 2       BOX 2
B2ABOX 2          JB    0002S2    0001
B2ABOX 2          S2    0002S2    0001    TOGGLE SWITCH
B2ABOX 2          S2    0002K2    0002    RELAY-ENABLE
B2ABOX 2          GND   0002K2    0002    RELAY-ENABLE
B1ABOX 3          NCDRAWING 3            PART NUMBER 3       BOX 3
B2ABOX 3          JC    0003S3    0001
B2ABOX 3          S3    0002S3    0001    TOGGLE SWITCH
B2ABOX 3          S3    0002I3    0003    INSTRUMENT ACTIVATE
B2ABOX 3          GND   0003I3    0003    INSTRUMENT ACTIVATE
B1ABOX 4          NCDRAWING 4            PART NUMBER 4       BOX 4
B2ABOX 4          PWR   0004CB4   0001    INPUT 5VDC
B2ABOX 4          CB4   0002CB4   0001    INPUT 5VDC
B2ABOX 4          CB4   0002PD    0004    INPUT 5VDC
B1ABOX 5          NCDRAWING 5            PART NUMBER 5       BOX 5
B2ABOX 5          PWR   0005CB5   0001    INPUT 28VDC
B2ABOX 5          CB5   0002CB5   0001    INPUT 28VDC
B2ABOX 5          CB5   0002PE    0005    INPUT 28VDC
B1ABOX 6          NCDRAWING 6            PART NUMBER 6       BOX 6
B2ABOX 6          PF    0006S6    0001
B2ABOX 6          S6    0002S6    0001    TOGGLE SWITCH
B2ABOX 6          S6    0002K6    0006    DISABLE RELAY
B2ABOX 6          GND   0006K6    0006    DISABLE RELAY
B1ABOX 7          NCDRAWING 7            PART NUMBER 7       BOX 7
B2ABOX 7          PWR   0007SI7   0001    15VDC
B2ABOX 7          SI7   0002SI7   0001    15VDC
B2ABOX 7          SI7   0002JG    0007    15VDC
B1ABOX 8          NCDRAWING 8            PART NUMBER 8       BOX 8
B2ABOX 8          PWR   0008SI8   0001    32VDC
B2ABOX 8          SI8   0002SI8   0001    32VDC
B2ABOX 8          SI8   0002JH    0008    32VDC
B1ABOX 9          NCDRAWING 9            PART NUMBER 9       BOX 9
B2ABOX 9          JI    0091SK9   0001    CROSS-TIE
B2ABOX 9          SK9   0002SK9   0001    CROSS-TIE
B2ABOX 9          SK9   0002JI    0092    CROSS-TIE
B1ABOX 99         NCDRAWING 99           PART NUMBER 99      BOX 99
B2ABOX 99         JJ    0099I99   0099    INPUT 99
B2ABOX 99         GND   0099I99   0099    INPUT 99
B1ABOX 999        NCDRAWING 999          PART NUMBER 999     BOX 999
B2ABOX 999        JK    0999I999  0999    INPUT 999
B2ABOX 999        GND   0999I999  0999    INPUT 999
/*
//IHT930P4 JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=2,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000040
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930P4,ANA=SCATESXX,PRTY=2,CWA=Z062
/*SETUP    *       9TRK=04,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=012862
/*SETUP    *       DSN=GOODTRAN
/*SETUP    OUTPUT -DSN=GSE002,RET=999
/*SETUP    *
/*SETUP    *      -DSN=GUD002,RET=999
/*SETUP    *
/*SETUP    *      -DSN=PGSE02,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//BIDU     EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',
//             REGION.GO=125K,TIME=2
//COB.SYSIN  DD  *
/*
//GO.SYSOUT  DD  SYSOUT=A
//GO.TRANSIN DD UNIT=TAPE9,DISP=(OLD,KEEP),VOL=SER=012862,
//             LABEL=(1,SL),DSN=PRIV.SCATESXX.GOODTRAN
//GO.IND   DD  UNIT=3330,DISP=(NEW,DELETE),DSNAME=&INDEX,              *
//             DCB=(LRECL=132,BLKSIZE=1320,RECFM=FB),                  *
//             SPACE=(TRK,(10,5)),VOL=SER=3D0043
//GO.OLDMAST DD DUMMY  PE9,VOLUME=(PRIVATE,SER=000000),LABEL=(1,SL),
//*            DSNAME=PRIV.SCATESXX.PGSE01,DISP=OLD
//GO.NEWMAST DD UNIT=TAPE9,DISP=(NEW,KEEP),LABEL=EXPDT=99365,
//             DSN=PRIV.SCATESXX.GSE002,VOL=PRIVATE,
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.INTSTOR DD UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&INTNAL,            *
//             SPACE=(CYL,(20,10)),                                    *
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.RPT  DD   UNIT=TAPE9,DISP=(NEW,KEEP),DSN=PRIV.SCATESXX.GUD002,
//             LABEL=EXPDT=99365,VOL=PRIVATE,
//             DCB=(LRECL=132,BLKSIZE=924,RECFM=FB)
//GO.ERROT    DD SYSOUT=A
//GO.PMAST DD  UNIT=TAPE9,DISP=(NEW,KEEP),DSN=PRIV.SCATESXX.PGSE02,
//             VOLUME=(PRIVATE,RETAIN),LABEL=EXPDT=99365,
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.CRD DD *
06-09-76  GSE
/*
//IHT930P5 JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=2,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000040
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930P5,ANA=SCATESXX,PRTY=2,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    INPUT  -SER=057555
/*SETUP    *       DSN=PGSE02
/*SETUP    *
/*SETUP    OUTPUT -DSN=BIDBED,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//BIDRPT   EXEC COBUCLG,PARM.COB='DMAP,PMAP,XREF',
//             REGION.GO=125K,TIME=2
//COB.SYSIN DD *
/*
//GO.SYSOUT  DD  SYSOUT=A
//GO.INDX  DD SYSOUT=A
//GO.UPDT  DD  UNIT=TAPE9,VOLUME=SER=057555,                           *
//             LABEL=(,SL),DISP=OLD,DSN=PRIV.SCATESXX.PGSE02
//GO.RPTT  DD  SYSOUT=A
//GO.MAST  DD  UNIT=TAPE9,VOLUME=PRIVATE,LABEL=EXPDT=99365,            *
//             DISP=(NEW,KEEP),DSN=PRIV.SCATESXX.BIDBED,
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB)
//GO.OPT   DD  *
YESYESALL               06-10-76        GSE
/*
//IHT930P1 JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000040
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930P1,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=005231
/*SETUP    *       DSN=INTAPEXX
/*SETUP    *
/*SETUP    OUTPUT -DSN=BIDBED,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//BED1     EXEC COBUCLG,PARM.COB='DMAP,PMAP,XREF',REGION.GO=250K,
//             TIME=2
//COB.SYSIN DD *
/*
//GO.SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.SORTMSG  DD  SYSOUT=A
//GO.SORTWK01 DD SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK02 DD SPACE=(CYL,(20),,CONTIG),UNIT=(DISK,SEP=SORTWK01)
//GO.SORTWK03 DD SPACE=(CYL,(20),,CONTIG),
//             UNIT=(DISK,SEP=(SORTWK01,SORTWK02))
//GO.SORTWK04  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK05  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK06  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTOUT   DD UNIT=3330,SPACE=(CYL,(10,5)),DSNAME=&TEMP1,          *
//             DCB=(LRECL=87,BLKSIZE=3480,RECFM=FB),VOL=SER=3D0043
//GO.SYSUDUMP DD SYSOUT=A
//GO.SYSERRS DD SYSOUT=A
//GO.GSETPE DD DUMMY   E7,DSNAME=CPOM7,DISP=OLD,VOLUME=SER=H02537,
//*            DCB=(DEN=2,TRTCH=ET)
//GO.NATPE DD UNIT=TAPE9,DISP=OLD,DSNAME=PRIV.SCATESXX.INTAPEXX,
//             VOL=SER=005231
//GO.GRTPE DD DUMMY   E9,DISP=OLD,DSNAME=GLEM5,VOLUME=SER=H06327
//GO.WRMRG DD UNIT=TAPE9,DISP=(,KEEP),DSN=PRIV.SCATESXX.BIDBED,        X
//             VOLUME=(PRIVATE,RETAIN),LABEL=EXPDT=99365
//GO.WIRLST    DD SYSOUT=A
//GO.DATAIN DD *
06-18-76
WANCP1    0001NCE0001 0001WL1                                        WL1
WANCP2    0002NCE0001 0001WL1                                        WL1
WANCP3    0003NCE0001 0001WL1                                        WL1
WANCJ4    0004NCE0002 0002WL2                                        WL2
WANCJ5    0005NCE0002 0002WL2                                        WL2
WANCJ6    0006NCE0002 0002WL2                                        WL2
WANCP7    0007NCE0003 0003WL3                                        WL3
WANCP9    0091NCE0003 0003WL3                                        WL3
WANCP99   0099NCE0003 0003WL3                                        WL3
WANCP8    0008NCE0004 0004WL3                                        WL3
WANCP9    0092NCE0004 0004WL3                                        WL3
WANCP999  0999NCE0004 0004WL3                                        WL3
/*
//IHT930P2 JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000040
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930P2,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=059271
/*SETUP    *       DSN=BIDBED
/*SETUP    OUTPUT -DSN=MSTBED,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//ILD      EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',
//             REGION.GO=250K,TIME=2
//COB.SYSIN DD *
/*
//GO.SYSOUT  DD  SYSOUT=A
//GO.WINPT  DD UNIT=TAPE9,VOLUME=(PRIVATE,SER=059271),LABEL=(1,SL),    *
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),DISP=OLD,
//             DSN=PRIV.SCATESXX.BIDBED
//GO.WOTPT  DD UNIT=TAPE9,VOLUME=(PRIVATE,RETAIN),                     X
//             LABEL=EXPDT=99365,DISP=(NEW,KEEP),
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),                  *
//             DSNAME=PRIV.SCATESXX.MSTBED
//GO.CRDS   DD *
NCJ4       NCPD
NCJ5       NCPE
NCJ6       NCPF
NCP1       NCJA
NCP2       NCJB
NCP3       NCJC
NCP7       NCJG
NCP8       NCJH
NCP9       NCJI
NCP99      NCJJ
NCP999     NCJK
/*
//IHT930P9 JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000040
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930P9,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=03,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=051767
/*SETUP    *       DSN=BIDBED
/*SETUP    *      -SER=057628
/*SETUP    *       DSN=MSTBED
/*SETUP
/*SETUP    OUTPUT -DSN=SMER07,RET=999
/*SETUP    *
/*SETUP    *      -DSN=NSF107,RET=999
/*SETUP    *
/*SETUP    *       DSN=MERPRT,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//S1       EXEC DISKSORT,TRKS=190,TIME=1
//SORTIN    DD UNIT=TAPE9,DISP=OLD,DSN=PRIV.SCATESXX.BIDBED,
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),LABEL=(,SL),      X
//             VOLUME=(PRIVATE,,SER=051767)
//   DD  UNIT=TAPE9,DISP=OLD,DSN=PRIV.SCATESXX.MSTBED,VOL=SER=057628,
//             DCB=(RECFM=FB,LRECL=149,BLKSIZE=1490)
//SORTOUT   DD UNIT=TAPE9,DISP=(NEW,PASS),LABEL=EXPDT=99365,
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),                  X
//             VOLUME=(PRIVATE,RETAIN),DSN=PRIV.SCATESXX.SMER07
//SYSIN DD *
 SORT FIELDS=(16.0,16.0,CH,A,1.0,15.0,CH,A)
 END
/*
//BRXRF    EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',
//             REGION.GO=250K,TIME=1
//COB.SYSIN  DD  *
/*
//GO.SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.SORTMSG  DD  SYSOUT=A
//GO.SORTWK01 DD SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK02 DD SPACE=(CYL,(20),,CONTIG),UNIT=(DISK,SEP=SORTWK01)
//GO.SORTWK03 DD SPACE=(CYL,(20),,CONTIG),
//             UNIT=(DISK,SEP=(SORTWK01,SORTWK02))
//GO.SORTWK04  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK05  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK06  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.MESSAG DD UNIT=TAPE9,DISP=(NEW,KEEP),DSN=PRIV.SCATESXX.MERPRT,
//             DCB=(LRECL=132,BLKSIZE=1320,RECFM=FB),
//             LABEL=EXPDT=99365,VOL=PRIVATE
//GO.BBINTP   DD UNIT=TAPE9,DISP=OLD,DSN=PRIV.SCATESXX.SMER07,
//             VOLUME=PRIVATE
//GO.FINAL    DD UNIT=TAPE9,DISP=(NEW,KEEP),LABEL=EXPDT=99365,
//             VOLUME=(PRIVATE,RETAIN),DSN=PRIV.SCATESXX.NSF107
//GO.OPTCD DD *
      06-18-76     CSM
/*
//IHT930PB JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000040
/*SETUP    ************************************************************ 00000040
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PB,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=004195
/*SETUP    *      -DSN=NSF107
/*SETUP
/*SETUP    OUTPUT -DSN=BRXREF,RET=999
/*SETUP    *
/*SETUP    *      -DSN=BRTBL,RET=999
/*SETUP
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//BXREF    EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',REGION.GO=250K,
//             TIME=2
//COB.SYSIN DD *
/*
//GO.SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.SORTMSG  DD  SYSOUT=A
//GO.SORTWK01 DD SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK02 DD SPACE=(CYL,(20),,CONTIG),UNIT=(DISK,SEP=SORTWK01)
//GO.SORTWK03 DD SPACE=(CYL,(20),,CONTIG),
//             UNIT=(DISK,SEP=(SORTWK01,SORTWK02))
//GO.SORTWK04  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK05  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK06  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTOUT DD UNIT=3330,SPACE=(CYL,(75,25)),DSNAME=&TFST,            C
//             DCB=(LRECL=162,BLKSIZE=3240,RECFM=FB),VOL=SER=3D0043
//GO.FST DD UNIT=TAPE9,DISP=OLD,
//             DSNAME=PRIV.SCATESXX.NSF107,VOL=SER=004195
//GO.RPT DD SYSOUT=A
//GO.BRT DD UNIT=TAPE9,DSN=PRIV.SCATESXX.BRTBL,DISP=(,KEEP),
//             LABEL=EXPDT=99365,VOL=PRIVATE
//GO.XREF DD UNIT=TAPE9,VOLUME=PRIVATE,DISP=(,KEEP),
//             DSN=PRIV.SCATESXX.BRXREF,LABEL=EXPDT=99365
//
//IHT930PD JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=10
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PD,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=010421
/*SETUP    *       DSN=UNODE
/*SETUP    *      -SER=010105
/*SETUP    *       DSN=UBRANCH
/*SETUP    *
/*SETUP    OUTPUT -DSN=PATHS,RET=999
/*SETUP    *
/*SETUP    *      -DSN=UTABLE,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//LOAD     EXEC PGM=IEBISAM,PARM=LOAD,REGION=50K,TIME=1
//SYSABEND DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD UNIT=TAPE9,DSN=PRIV.SCATESXX.UNODE,DISP=OLD,
//             VOLUME=SER=010421
//SYSUT2   DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(25,10)),              C
//             DCB=(DSORG=IS),DSN=&NODE
//LOAD2    EXEC PGM=IEBISAM,PARM=LOAD,REGION=50K,TIME=1
//SYSABEND DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD UNIT=TAPE9,DSN=PRIV.SCATESXX.UBRANCH,LABEL=(1,SL),
//             VOLUME=SER=010105,DISP=OLD
//SYSUT2   DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(25,10)),              C
//             DCB=(DSORG=IS),DSN=&BRANCH
//PATHGEN  EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',
//             REGION.GO=125K,TIME=2
//COB.SYSIN DD *
/*
//GO.NODES DD UNIT=DISK,DISP=OLD,DCB=(DSORG=IS),
//             DSNAME=&NODE
//GO.BRANCHES DD UNIT=DISK,DISP=OLD,DCB=(DSORG=IS),
//             DSNAME=&BRANCH
//GO.SYSOUT  DD  SYSOUT=A
//GO.PATHRPT DD UNIT=TAPE9,DSN=PRIV.SCATESXX.PATHS,DISP=(,KEEP),
//             VOL=PRIVATE,LABEL=EXPDT=99365
//GO.ILLSR DD UNIT=TAPE9,VOLUME=PRIVATE,LABEL=EXPDT=99365,
//             DSN=PRIV.SCATESXX.UTABLE,
//             DISP=(,KEEP)
//GO.MAXIMP   DD *
100  000000 00150 050 000000
/*
//IHT930PE JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PE,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=03,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=052033
/*SETUP    *       DSN=PATHS
/*SETUP    *      -SER=072837
/*SETUP    *       DSN=BRXREF
/*SETUP    *
/*SETUP    OUTPUT -DSN=SPATH7,RET=999
/*SETUP    *
/*SETUP    *      -DSN=RGN107,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//SS1      EXEC DISKSORT,TRKS=190,TIME=1
//SORTIN  DD   UNIT=TAPE9,DISP=(OLD,KEEP),LABEL=(,SL),                 *
//             DCB=(LRECL=18,BLKSIZE=900,RECFM=FB),
//             VOLUME=SER=052033,DSN=PRIV.SCATESXX.PATHS
//SORTOUT DD   UNIT=TAPE9,DISP=(NEW,PASS),VOLUME=(PRIVATE,RETAIN),     *
//             DCB=(LRECL=18,BLKSIZE=1800,RECFM=FB),
//             LABEL=EXPDT=99365,DSN=PRIV.SCATESXX.SPATH7
//SYSIN DD *
 SORT FIELDS=(13.0,6.0,CH,A)
 END
/*
//REGEN1   EXEC COBUCLG,PARM.COB='DMAP,PMAP,XREF',
//             REGION.GO=250K,TIME=2
//COB.SYSIN DD *
/*
//GO.SYSOUT  DD  SYSOUT=A
//GO.IPP   DD  UNIT=TAPE9,DISP=(OLD,KEEP),VOL=REF=*.SS1.SORT.SORTOUT,  *
//             LABEL=(1,SL),DSN=PRIV.SCATESXX.SPATH7
//GO.IPX   DD  UNIT=TAPE9,DISP=(OLD,KEEP),VOLUME=SER=072837,
//             DCB=(LRECL=168,BLKSIZE=840,RECFM=FB),
//             DSNAME=PRIV.SCATESXX.BRXREF
//GO.OUTF  DD  UNIT=TAPE9,VOLUME=PRIVATE,LABEL=EXPDT=99365,
//             DISP=(NEW,KEEP),DSNAME=PRIV.SCATESXX.RGN107
//
//IHT930PF JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PF,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=052120
/*SETUP    *       DSN=RGN107
/*SETUP    *
/*SETUP    OUTPUT -DSN=SRGN07,RET=999
/*SETUP    *
/*SETUP    *      -DSN=GDPTH7,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//S2       EXEC DISKSORT,TRKS=190,TIME=1
//SORTIN  DD   UNIT=TAPE9,LABEL=(1,SL),VOLUME=SER=052120,DISP=OLD,
//             DCB=(LRECL=180,BLKSIZE=1800,RECFM=FB),
//             DSN=PRIV.SCATESXX.RGN107
//SORTOUT  DD  UNIT=TAPE9,VOLUME=(PRIVATE,RETAIN),DISP=(NEW,PASS),     *
//             DCB=(LRECL=180,BLKSIZE=1800,RECFM=FB),
//             DSN=PRIV.SCATESXX.SRGN07,LABEL=EXPDT=99365
//SYSIN    DD *
 SORT FIELDS=(1.0,12.0,CH,A)
 END
/*
//RECFIX   EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',
//             REGION.GO=250K,TIME=1
//COB.SYSIN DD *
/*
//GO.SYSOUT  DD  SYSOUT=A
//GO.INPTH DD UNIT=TAPE9,DISP=(OLD,KEEP),DSN=PRIV.SCATESXX.SRGN07,
//             VOLUME=REF=*.S2.SORT.SORTOUT
//GO.OUTPATH DD UNIT=TAPE9,VOLUME=PRIVATE,DISP=(NEW,KEEP),
//             DSN=PRIV.SCATESXX.GDPTH7,LABEL=EXPDT=99365
/*
//IHT930PG JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PG,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=03,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=053586
/*SETUP    *       DSN=GDPTH7
/*SETUP    *
/*SETUP    OUTPUT -DSN=PWRGD7,RET=999
/*SETUP    *
/*SETUP    *      -DSN=REVCUR,RET=999
/*SETUP    *
/*SETUP    *      -DSN=SPRGN7,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//BRC      EXEC COBUCLG,PARM.COB='PMAP,DMAP,XREF',
//             REGION.GO=250K,TIME=2
//COB.SYSIN DD *
/*
//GO.SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.SORTMSG  DD  SYSOUT=A
//GO.SORTWK01 DD SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK02 DD SPACE=(CYL,(20),,CONTIG),UNIT=(DISK,SEP=SORTWK01)
//GO.SORTWK03 DD SPACE=(CYL,(20),,CONTIG),
//             UNIT=(DISK,SEP=(SORTWK01,SORTWK02))
//GO.SORTWK04  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK05  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK06  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTOUT DD UNIT=TAPE9,DISP=(NEW,PASS),LABEL=EXPDT=99365,
//             DCB=(LRECL=181,BLKSIZE=1810,RECFM=FB),                  X
//             VOLUME=(PRIVATE,RETAIN),DSN=PRIV.SCATESXX.PWRGD7
//GO.PTHIN  DD UNIT=TAPE9,LABEL=(1,SL),DISP=OLD,
//             VOLUME=SER=053586,DSN=PRIV.SCATESXX.GDPTH7
//GO.DSKIO     DD UNIT=TAPE9,DISP=(NEW,KEEP),
//             DCB=(LRECL=132,BLKSIZE=1320,RECFM=FB),
//             VOL=PRIVATE,LABEL=EXPDT=99365,DSN=PRIV.SCATESXX.REVCUR
//GO.INLDI     DD *
06-23-76  NA CSM-107
/*
//SS2      EXEC DISKSORT,TRKS=190,TIME=1
//SORTIN DD UNIT=TAPE9,DISP=OLD,LABEL=(,SL),
//             DCB=(LRECL=181,BLKSIZE=1810,RECFM=FB),                  X
//             VOLUME=REF=*.BRC.GO.SORTOUT,DSN=PRIV.SCATESXX.PWRGD7
//SORTOUT DD UNIT=TAPE9,DISP=(NEW,KEEP),LABEL=EXPDT=99365,
//             DCB=(LRECL=181,BLKSIZE=1810,RECFM=FB),                  X
//             VOLUME=PRIVATE,DSN=PRIV.SCATESXX.SPRGN7
//SYSIN DD *
 SORT FIELDS=(1.0,12.0,CH,A)
 END
/*
//IHT930PL JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*JOBPARM LINES=100
/*BCSCMND EX=YES
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PL,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=006528
/*SETUP    *       DSN=SPRGN7
/*SETUP    *
/*SETUP    OUTPUT -DSN=RPT07,RET=999
/*SETUP    *
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//LEGPTH   EXEC COBUCLG,PARM.COB='DMAP,PMAP,XREF',
//             REGION.GO=125K,TIME=5
//COB.SYSIN DD *
/*
//GO.SYSOUT   DD SYSOUT=A
//GO.PRINTIT DD SYSOUT=A
//GO.INPT1  DD UNIT=TAPE9,DISP=(OLD,KEEP),DSNAME=PRIV.SCATESXX.SPRGN7, *
//             VOLUME=SER=006528
//GO.INPT2  DD DUMMY
//GO.CRD  DD *
NA CSM-107          06-23-76
/*
//IHT930PI JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PI,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=006528
/*SETUP    *       DSN=SPRGN7
/*SETUP    *
/*SETUP    OUTPUT -DSN=NAME2X,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//NRDGEN   EXEC COBUCLG,PARM.COB='DMAP,PMAP,XREF',
//             REGION.GO=250K,TIME=2
//COB.SYSIN  DD  *
/*
//GO.SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.SORTMSG  DD  SYSOUT=A
//GO.SORTWK01 DD SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK02 DD SPACE=(CYL,(20),,CONTIG),UNIT=(DISK,SEP=SORTWK01)
//GO.SORTWK03 DD SPACE=(CYL,(20),,CONTIG),
//             UNIT=(DISK,SEP=(SORTWK01,SORTWK02))
//GO.SORTWK04  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK05  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK06  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.PGIMSTR DD UNIT=TAPE9,LABEL=(,SL),DISP=OLD,
//             DCB=(LRECL=181,BLKSIZE=1810,RECFM=FB),
//             VOLUME=SER=006528,DSN=PRIV.SCATESXX.SPRGN7
//GO.IDSMSTR DD UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&STORE1,            *
//             DCB=(LRECL=181,BLKSIZE=1629,RECFM=FB),                  *
//             SPACE=(CYL,(15,1))
//GO.NRDMSTR DD UNIT=TAPE9,LABEL=EXPDT=99365,DISP=(NEW,KEEP),
//             DCB=(LRECL=104,BLKSIZE=1144,RECFM=FB),                  *
//             VOLUME=PRIVATE,DSN=PRIV.SCATESXX.NAME2X
//GO.AOVFLST DD UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&STORE2,            *
//             DCB=(LRECL=181,BLKSIZE=1629,RECFM=FB),                  *
//             SPACE=(CYL,(15,1))
/*
//IHT930PJ JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PJ,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=05,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=010005
/*SETUP    *       DSN=NAME2X
/*SETUP    *
/*SETUP    OUTPUT -DSN=NAME2,RET=999
/*SETUP    *
/*SETUP    *      DSN=NAME3,RET=999
/*SETUP    *
/*SETUP    *      DSN=NAME4,RET=999
/*SETUP    *
//*SETUP   *      -DSN=NAME5,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//ISANRP   EXEC COBUCLG,PARM.COB='DMAP,PMAP,XREF',
//             REGION.GO=250K,TIME=2
//COB.SYSIN DD *
/*
//GO.NRDMSTR DD UNIT=TAPE9,LABEL=(,SL),DISP=OLD,
//             DCB=(LRECL=104,BLKSIZE=1144,RECFM=FB),                  *
//             VOLUME=SER=010005,DSN=PRIV.SCATESXX.NAME2X
//GO.CSTERMB DD UNIT=TAPE9,LABEL=EXPDT=99365,DISP=(NEW,KEEP),
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB),                   *
//             DSN=PRIV.SCATESXX.NAME2,VOL=PRIVATE
//GO.CSWTCHB DD UNIT=TAPE9,LABEL=EXPDT=99365,DISP=(NEW,KEEP),
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB),                   *
//             DSN=PRIV.SCATESXX.NAME3,VOL=PRIVATE
//GO.CSSNODE DD UNIT=TAPE9,LABEL=EXPDT=99365,DISP=(NEW,KEEP),
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB),                   *
//             DSN=PRIV.SCATESXX.NAME4,VOL=PRIVATE
//GO.LISTF  DD UNIT=TAPE9,LABEL=EXPDT=99365,DISP=(NEW,KEEP),
//             DCB=(LRECL=132,BLKSIZE=924,RECFM=FB),VOL=PRIVATE,
//             DSN=PRIV.SCATESXX.NAME5
//GO.CARDF   DD *
    CSM-107
/*
//IHT930PK JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PK,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=04,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=007498
/*SETUP    *       DSN=NAME4
/*SETUP    *      -SER=011042
/*SETUP    *       DSN=NAME2
/*SETUP    *      -SER=010860
/*SETUP    *       DSN=NAME3
/*SETUP    *
/*SETUP    OUTPUT -DSN=NAME6,RET=999
/*SETUP    *
/*SETUP    *      -DSN=NAME7,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//S2       EXEC DISKSORT,TRKS=190,TIME=2
//SORTIN DD UNIT=TAPE9,LABEL=(,SL),DISP=OLD,DSN=PRIV.SCATESXX.NAME4,
//             VOLUME=SER=007498,                                      *
//             VOLUME=(PRIVATE,RETAIN),LABEL=EXPDT=99365,
//SORTOUT DD UNIT=TAPE9,DISP=(NEW,PASS),DSN=PRIV.SCATESXX.NAME6,       *
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB)
//SYSIN DD *
 SORT FIELDS=(24.0,30.0,CH,A,7.0,17.0,CH,A)
 END
/*
//CONSUM   EXEC COBUCLG,PARM.COB='DMAP,PMAP,XREF',
//             REGION.GO=250K,TIME=3
//COB.SYSIN DD *
/*
//GO.SYSOUT   DD SYSOUT=A
//GO.CSTERMB DD UNIT=TAPE9,DISP=(OLD,KEEP),DSN=PRIV.SCATESXX.NAME2,
//             VOLUME=SER=011042
//GO.CSWTCHB DD UNIT=TAPE9,DISP=(OLD,KEEP),DSN=PRIV.SCATESXX.NAME3,
//             VOLUME=SER=010860
//GO.CSSNODE DD UNIT=TAPE9,DISP=(OLD,KEEP),DSN=PRIV.SCATESXX.NAME6,
//             VOLUME=REF=*.S2.SORT.SORTOUT
//GO.LISTF   DD UNIT=TAPE9,DISP=(NEW,KEEP),
//             DCB=(LRECL=132,BLKSIZE=924,RECFM=FB),LABEL=EXPDT=99365, *
//             VOLUME=PRIVATE,DSN=PRIV.SCATESXX.NAME7
/*
//IHT930PC JOB (MWB,Z062,'      S04PDCTL        '), SCATESXX
//             PRTY=9,CLASS=C,TIME=5
/*SETUP    ************************************************************ 00000030
/*SETUP    *
/*SETUP    JOBID  -JOB=IHT930PC,ANA=SCATESXX,PRTY=9,CWA=Z062
/*SETUP    *       9TRK=02,7TRK=00,LOC=IHT930C1,D3330=01
/*SETUP    *       DISC PACK = 3D0043
/*SETUP    *
/*SETUP    INPUT  -SER=072900
/*SETUP    *       DSN=BRTBL
/*SETUP    *
/*SETUP    OUTPUT -DSN=UNODE,RET=999
/*SETUP    *
/*SETUP    *      -DSN=UBRANCH,RET=999
/*SETUP    *
/*SETUP    ************************************************************ 00000170
/*SETUP    ************************************************************ 00000170
//ISAM     EXEC COBUCLG,PARM.COB='PMA,DMA,XREF',REGION.GO=125K,TIME=2
//COB.SYSIN DD *
/*
//GO.SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.SORTMSG  DD  SYSOUT=A
//GO.SORTWK01 DD SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK02 DD SPACE=(CYL,(20),,CONTIG),UNIT=(DISK,SEP=SORTWK01)
//GO.SORTWK03 DD SPACE=(CYL,(20),,CONTIG),
//             UNIT=(DISK,SEP=(SORTWK01,SORTWK02))
//GO.SORTWK04  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK05  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTWK06  DD  SPACE=(CYL,(20),,CONTIG),UNIT=3330,VOL=SER=3D0043
//GO.SORTOUT  DD  UNIT=3330,DSNAME=&PAULA,SPACE=(CYL,(20,10)),         C
//             DCB=(LRECL=19,BLKSIZE=1159,RECFM=FB),VOL=SER=3D0043
//GO.BRNHTBL  DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(25,,1)),           C
//             DCB=(DSORG=IS),DSN=&BRANCH
//GO.NODETBL  DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(25,,1)),
//             DCB=(DSORG=IS),DSN=&NODE
//GO.BRINPUT DD UNIT=TAPE9,DISP=OLD,DSN=PRIV.SCATESXX.BRTBL,
//             VOL=SER=072900
//UNLOAD   EXEC PGM=IEBISAM,PARM=UNLOAD,REGION=50K,TIME=1
//SYSUDUMP  DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=DISK,DISP=(OLD,DELETE),DSNAME=&NODE,                C
//             DCB=(DSORG=IS)
//SYSUT2 DD UNIT=TAPE9,DCB=(LRECL=80,BLKSIZE=3200,RECFM=FB),           C
//             VOLUME=PRIVATE,LABEL=EXPDT=99365,
//             DISP=(,KEEP),DSN=PRIV.SCATESXX.UNODE
//UNLD2    EXEC PGM=IEBISAM,PARM=UNLOAD,REGION=50K,TIME=1
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=DISK,DISP=(OLD,DELETE),DSNAME=&BRANCH,              C
//             DCB=(DSORG=IS)
//SYSUT2 DD UNIT=TAPE9,DCB=(LRECL=80,BLKSIZE=3200,RECFM=FB),           C
//             LABEL=EXPDT=99365,DSN=PRIV.SCATESXX.UBRANCH,
//             DISP=(,KEEP)
//
